home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Visual Basic.60 / VB98 / WIZARDS / PDWIZARD / SETUP1 / MODSHELL.BAS < prev    next >
Encoding:
BASIC Source File  |  1998-06-18  |  1.8 KB  |  54 lines
  1. Attribute VB_Name = "modShell"
  2. Option Explicit
  3.  
  4. Public Enum SpecialFolderIDs
  5.     sfidDESKTOP = &H0
  6.     sfidPROGRAMS = &H2
  7.     sfidPERSONAL = &H5
  8.     sfidFAVORITES = &H6
  9.     sfidSTARTUP = &H7
  10.     sfidRECENT = &H8
  11.     sfidSENDTO = &H9
  12.     sfidSTARTMENU = &HB
  13.     sfidDESKTOPDIRECTORY = &H10
  14.     sfidNETHOOD = &H13
  15.     sfidFONTS = &H14
  16.     sfidTEMPLATES = &H15
  17.     sfidCOMMON_STARTMENU = &H16
  18.     sfidCOMMON_PROGRAMS = &H17
  19.     sfidCOMMON_STARTUP = &H18
  20.     sfidCOMMON_DESKTOPDIRECTORY = &H19
  21.     sfidAPPDATA = &H1A
  22.     sfidPRINTHOOD = &H1B
  23.     sfidProgramFiles = &H10000
  24.     sfidCommonFiles = &H10001
  25. End Enum
  26.  
  27. Public Declare Function SHGetSpecialFolderLocation Lib "shell32" (ByVal hwndOwner As Long, ByVal nFolder As SpecialFolderIDs, ByRef pIdl As Long) As Long
  28. Public Declare Function SHGetPathFromIDListA Lib "shell32" (ByVal pIdl As Long, ByVal pszPath As String) As Long
  29. Public Declare Function SHGetDesktopFolder Lib "shell32" (ByRef pshf As IVBShellFolder) As Long
  30. Public Declare Function SHGetMalloc Lib "shell32" (ByRef pMalloc As IVBMalloc) As Long
  31.  
  32. ' SHGetSpecialFolderLocation successful rtn val
  33. Public Const NOERROR = 0
  34.  
  35. Public Const CSIDL_DESKTOP = &H0
  36. Public Const CSIDL_PROGRAMS = &H2
  37. Public Const CSIDL_CONTROLS = &H3
  38. Public Const CSIDL_PRINTERS = &H4
  39. Public Const CSIDL_PERSONAL = &H5   ' (Documents folder)
  40. Public Const CSIDL_FAVORITES = &H6
  41. Public Const CSIDL_STARTUP = &H7
  42. Public Const CSIDL_RECENT = &H8   ' (Recent folder)
  43. Public Const CSIDL_SENDTO = &H9
  44. Public Const CSIDL_BITBUCKET = &HA
  45. Public Const CSIDL_STARTMENU = &HB
  46. Public Const CSIDL_DESKTOPDIRECTORY = &H10
  47. Public Const CSIDL_DRIVES = &H11
  48. Public Const CSIDL_NETWORK = &H12
  49. Public Const CSIDL_NETHOOD = &H13
  50. Public Const CSIDL_FONTS = &H14
  51. Public Const CSIDL_TEMPLATES = &H15   ' (ShellNew folder)
  52.  
  53.  
  54.